home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Hyperj-Hz / HyprList.cpt / HyperList / card_2215.txt < prev    next >
Text File  |  1987-11-11  |  2KB  |  69 lines
  1. -- card: 2215 from stack: in
  2. -- bmap block id: 6617
  3. -- flags: 0000
  4. -- background id: 2679
  5. -- name: Resource Copier
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 8003
  11. -- rect: left=75 top=194 right=216 bottom=175
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Copy DoList
  20. ----- HyperTalk script -----
  21. on mouseUp  --DO NOT CHANGE LINE 2! IT IS MODIFIED BY ANOTHER SCRIPT!
  22.   put "HD20:HyperCard & Stacks:HyperCard Stacks:HyperList" into sourceStack
  23.   set the cursor to 4
  24.   put the long name of this stack into destStack
  25.   delete first word of destStack
  26.   delete first character of destStack
  27.   delete last character of destStack
  28.   if sourceStack<>destStack then
  29.     set lockscreen to true
  30.     set lockmessages to true
  31.     push this card
  32.     go stack sourceStack
  33.     ResCopy sourceStack,destStack,"XCMD","DoList"
  34.     get the result
  35.     -- here is where you would copy more resources.
  36.     pop card
  37.     choose button tool
  38.     click at location of card button "Copy DoList"
  39.     domenu clear button
  40.     choose browse tool
  41.     set lockmessages to false
  42.     set lockscreen to false
  43.     if first char of it is "E" then
  44.       -- you could put better error handling here
  45.       put it into the message box
  46.     end if
  47.   end if
  48. end mouseUp
  49.  
  50.  
  51.  
  52.  
  53. -- part contents for background part 5
  54. ----- text -----
  55.   Resource Copier:
  56.  
  57.   The button below offers a method for copying the DoList command into another stack, without using ResEdit. To use DoList in one of your own stacks, simply COPY (do not cut) the button below and go to any card in the stack in which you wish to use DoList. Paste the button into the stack, change back to the browse tool, and click on the button. The button will dissappear, and DoList will then be ready for use in that stack!
  58.  
  59.  
  60.  
  61.  
  62.   For more information on the Resource Copier, see my stack named Resource Copier.
  63.  
  64.  
  65.  
  66.  
  67. -- part contents for background part 8
  68. ----- text -----
  69. Page 11